﻿Public Class frm_Main

    Private Sub frm_Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Dim f_SalesOrder As frm_SalesOrder
    Private Sub pb_SalesOrder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pb_SalesOrder.Click
        f_SalesOrder = New frm_SalesOrder
        f_SalesOrder.Show()
    End Sub

    Private Sub pb_Logout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pb_Logout.Click
        Me.Close()
    End Sub

    Private Sub pb_MyRoute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pb_MyRoute.Click
        Dim frm_Route As New frm_MyRoutes
        frm_Route.Show()
    End Sub
End Class